home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / educational / intro_to_basic_part_1[cbm_1983].nbz / reaction (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  778 b   |  44 lines
  1. 5 REM COPYRIGHT (C) ANDREW COLIN 1981
  2. 10 REM REACTION TIME PROGRAM
  3. 20 PRINT"[147]"
  4. 30 PRINT"TO MEASURE YOUR"
  5. 40 PRINT"REACTION TIME"
  6. 50 PRINT"HIT ANY KEY"
  7. 60 PRINT"THEN WAIT FOR THE"
  8. 70 PRINT"TONE.  WHEN YOU"
  9. 80 PRINT"HEAR IT, HIT ANY"
  10. 90 PRINT"KEY AS FAST AS"
  11. 100 PRINT"YOU CAN. GOOD LUCK!"
  12. 110 REM WAIT FOR ANY KEY
  13. 120 GET A$
  14. 130 IF A$=""THEN120
  15. 140 REM WAIT A RANDOM TIME
  16. 143 PRINT
  17. 145 PRINT"WAIT FOR IT!"
  18. 148 PRINT
  19. 150 Q=TI+INT(60+301*RND(0))
  20. 160 GET A$
  21. 170 IFA$<>""THEN 340
  22. 180 IF TI<Q THEN 160
  23. 190 REM START TONE AND NOTE TIME
  24. 200 POKE 54295,0
  25. 202 POKE54296,15
  26. 205 POKE 54278,240
  27. 207 POKE54277,16
  28. 210 POKE 54273,100
  29. 212 POKE54276,33
  30. 220 X=TI
  31. 230 REM WAIT FOR ANY KEY
  32. 240 GET A$
  33. 250 IFA$=""THEN240
  34. 260 REM GET RESULT AND STOP TONE
  35. 270 R=TI
  36. 280 POKE54276,0
  37. 290 POKE54296,0
  38. 300 REM DISPLAY RESULT
  39. 310 PRINT"YOUR REACTION TIME IS"
  40. 320 PRINT(R-X)/60;"SECONDS"
  41. 330 STOP
  42. 340 PRINT"TOO SOON"
  43. 350 STOP
  44.